home *** CD-ROM | disk | FTP | other *** search
/ Aminet 49 / Aminet 49 (2002)(GTI - Schatztruhe)[!][Jun 2002].iso / Aminet / dev / gui / Feelin.lha / Feelin / Page.e < prev    next >
Text File  |  2002-03-14  |  2KB  |  70 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF c,w, p,s
  7.  
  8.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  9.       c := ClientObject,
  10.          Child, w := WindowObject, FA_Window_Title,'Feelin : Pages',
  11.             Child, VGroup, NoFrame,
  12.                Child, p := Page, InputImmediate, FA_Group_PageTitles,['Feelin','ColorMap','RGB',NIL], FA_MinWidth, 100,
  13.                   FA_Back,'2:Image:Icônes/ShadeCollection2/Patterns/Patterns/Purple Stones',
  14.  
  15.                   Child, VGroup, FA_ID,'Grp1', NoFrame,
  16.                      Child, SimpleButton('Lotan'),
  17.                      Child, SimpleButton('Lotan'),
  18.                      Child, SimpleButton('Lotan'),
  19.                   End,
  20.  
  21.                   Child, VGroup, FA_ID,'Grp2', NoFrame,
  22.                      Child, Page, FA_Group_PageTitles,['Feelin','ColorMap','RGB',NIL], FA_Back,FI_HalfShine_Fill,
  23.                         Child, VGroup, FA_ID,'Grp1', NoFrame,
  24.                            Child, SimpleButton('Lotan'),
  25.                            Child, SimpleButton('Lotan'),
  26.                            Child, SimpleButton('Lotan'),
  27.                         End,
  28.  
  29.                         Child, VGroup, FA_ID,'Grp2', NoFrame,
  30.                            Child, SimpleButton('is my'),
  31.                            Child, SimpleButton('is my'),
  32.                            Child, SimpleButton('is my'),
  33.                         End,
  34.                      End,
  35.  
  36.                      Child, SimpleButton('is my'),
  37.                      Child, SimpleButton('is my'),
  38.                   End,
  39.  
  40.                   Child, VGroup, FA_ID,'Grp3', NoFrame,
  41.                      Child, SimpleButton('Lord'),
  42.                      Child, SimpleButton('Lord'),
  43.                      Child, SimpleButton('Lord'),
  44.                   End,
  45.                End,
  46.  
  47.                Child, s := SliderObject, FA_Horizontal,TRUE, FA_FixedHeight,TRUE, SliderFrame,SliderBack,FA_Numeric_Format,'Page: \d',FA_Numeric_Max,2, End,
  48.             End,
  49.          End,
  50.       End
  51.  
  52.       IF c
  53.          F_DoA(s,FM_Notify,[FA_Numeric_Value,FV_Notify_Always,p,3,
  54.                             FM_Set,
  55.                             FA_Group_ActivePage,FV_Notify_Value])
  56.  
  57.          F_DoA(w,FM_Notify,[FA_Window_CloseRequest,TRUE,FV_Notify_Client,2,FM_Client_ReturnID,FV_Client_Quit])
  58.          F_Set(w,FA_Window_Open,TRUE)
  59.  
  60.          WHILE F_DoA(c,FM_Client_WaitEvent,NIL) <> FV_Client_Quit DO NOP
  61.  
  62.          F_DisposeObj(c)
  63.       ENDIF
  64.  
  65.       CloseLibrary(feelinbase)
  66.    ELSE
  67.       WriteF('Unable to open feelin.library\n')
  68.    ENDIF
  69. ENDPROC
  70.